                               CTP. 1 

                        207537 1.00100-01 35


                

                          .

             





  

  207537 1.00100-01 35 




                    -
                        "  0010"

                             ""

                            


                        207537 1.00100-01 35

                               
























                                1985






                               CTP. 2 

                        207537 1.00100-01 35






                            1. 



                  
    ( 1985.11.01.)     
   - "  0010".
                
          -.      
        ,        
       .      
           .
    ,      
      ,         
       ,
       ...
                
   ,     .
                        
                   -
  "  0010",    .


































                               CTP. 3 

                        207537 1.00100-01 35






                             



  1.   ...............................................   2


  2.   ............................................  6

  2.1.    ........................................  6
  2.2.    .................................  6
  2.3.     ...................................  7
  2.4.      ...........................  7
  2.5.     .................................  8

  3.      ................................  9

  3.1.   ..............................................  9
  3.1.1.    ...................................  9
  3.1.2.     ............................... 10
  3.1.3.    .................................. 11
  3.2.   ............................................. 11
  3.2.1.    ............................... 11
  3.3.     ................................... 12
  3.3.1.    ............................. 13
  3.3.2.    .............................. 13
  3.3.3.    ................................... 14
  3.3.4.    .................................. 15
  3.3.5.   .............................................. 16
  3.3.6.    ................................. 17
  3.3.7.      ....................... 18

  4.   ........................................... 19

  4.1.     ................................ 19
  4.1.1.    RUN.......................................... 19
  4.1.2.    CONT......................................... 19
  4.1.3.    () "".............................. 20
  4.1.4.    MONIT........................................ 20
  4.2.        ......... 20
  4.2.1.    LOAD......................................... 21
  4.2.2.    SAVE......................................... 21
  4.2.3.    MERGE........................................ 22
  4.2.4.    CLOAD........................................ 22
  4.2.5.    CSAVE........................................ 23
  4.2.6.    FIND......................................... 23
  4.2.7.    BLOAD........................................ 24
  4.2.8.    BSAVE........................................ 24
  4.3.      ............................. 25
  4.3.1.    LIST......................................... 25
  4.3.2.    DELETE....................................... 26
  4.3.3.    RENUM........................................ 27
  4.3.4.    AUTO......................................... 28
  4.3.5.    . ().................................... 28

                               CTP. 4 

                        207537 1.00100-01 35


  4.3.6.    () ""............................... 29
  4.3.7.    NEW.......................................... 29

  5.  ................................................. 30

  5.1.    ..................................... 30
  5.1.1.    LET......................................... 30
  5.1.2.    GOTO........................................ 31
  5.1.3.    GOSUB....................................... 31
  5.1.4.    RETURN...................................... 31
  5.1.5.    IF.......................................... 32
  5.1.6.    FOR......................................... 33
  5.1.7.    NEXT........................................ 33
  5.1.8.    ON.......................................... 34
  5.1.9.    STOP........................................ 35
  5.1.10.   END......................................... 35
  5.1.11.   CALL........................................ 36
  5.1.12.   REM......................................... 36
  5.2.     ,        
           ........................... 37
  5.2.1.    DIM      
           ,    ............... 37
  5.2.2.    KEY......................................... 38
  5.2.3.    CLEAR....................................... 39
  5.2.4.    DATA........................................ 40
  5.2.5.    READ........................................ 40
  5.2.6.    RESTORE..................................... 41
  5.2.7.    DEF......................................... 41
  5.2.7.1.  DEF USR..................................... 41
  5.2.7.2.  DEF FN...................................... 42
  5.3.    /................................. 43
  5.3.1.    PRINT....................................... 43
  5.3.2.    INPUT....................................... 44
  5.3.3.    OPEN........................................ 45
  5.3.4.    CLOSE....................................... 46
  5.4.       ........... 46
  5.4.1.    POKE........................................ 46
  5.4.2.    OUT......................................... 47
  5.5.      ................ 48
  5.5.1.    CLS......................................... 48
  5.5.2.    COLOR....................................... 48
  5.5.3.    LOCATE...................................... 49
  5.6.      ............................ 50
  5.6.1.    PSET........................................ 50
  5.6.2.    PRESET...................................... 51
  5.6.3.    POINT........................................ 51
  5.6.4.    LINE........................................ 52
  5.6.5.    CIRCLE...................................... 53
  5.6.6.    PAINT....................................... 54
  5.6.7.    DRAW........................................ 55
  5.7.     ............................. 57
  5.7.1.    BEEP........................................ 57
  5.8.     ........................ 57
  5.8.1.    TRON........................................ 58
  5.8.2.    TROFF....................................... 58

  6.  ................................................... 59


                               CTP. 5 

                        207537 1.00100-01 35


  6.1.    ....................................... 59
  6.1.1.    SQR.......................................... 59
  6.1.2.    SIN.......................................... 59
  6.1.3.    COS.......................................... 60
  6.1.4.    TAN.......................................... 60
  6.1.5.    ATN.......................................... 60
  6.1.6.    PI........................................... 61
  6.1.7.    EXP.......................................... 61
  6.1.8.    LOG.......................................... 61
  6.1.9.    ABS.......................................... 62
  6.1.10.   FIX.......................................... 62
  6.1.11.   INT.......................................... 63
  6.1.12.   SGN.......................................... 63
  6.1.13.   RND.......................................... 64
  6.1.14.   FRE.......................................... 64
  6.2.     ........................... 65
  6.2.1.    CINT......................................... 65
  6.2.2.    CSNG......................................... 65
  6.2.3.    CDBL......................................... 66
  6.3.       ........... 66
  6.3.1.    PEEK......................................... 66
  6.3.2.    INP.......................................... 67
  6.4.    ..................................... 67
  6.4.1.    ASC.......................................... 68
  6.4.2.    CHR$......................................... 68
  6.4.3.    LEN.......................................... 69
  6.4.4.    MID$......................................... 69
  6.4.5.    STRING$...................................... 70
  6.4.6.    VAL.......................................... 71
  6.4.7.    INKEY$....................................... 72
  6.4.8.    STR$......................................... 72
  6.4.9.    BIN$......................................... 73
  6.4.10.   OCT$......................................... 73
  6.4.11.   HEX$......................................... 74
  6.5.     /................... 74
  6.5.1.    CSRLIN....................................... 74
  6.5.2.    POS.......................................... 75
  6.5.3.    LPOS......................................... 75
  6.5.4.    EOF.......................................... 76
  6.6.     PRINT................................ 76
  6.6.1.    AT........................................... 76
  6.6.2.    TAB.......................................... 77
  6.6.3.    SPC.......................................... 78
  6.7.   ,  .................... 78
  6.7.1.    FN........................................... 78
  6.7.2.    USR.......................................... 79

    1.   ..........................  80


    2.  ,   ...........  84


    3.   ASCII "  0010".....  92


    4.   - ......  94


                               CTP. 6 

                        207537 1.00100-01 35


                         2.  



              ,    
        .        
                  :        
  .



        2.1.  


                       
   .        
  .        .  
      <>  (  ),     
     "".        
   0  65535.     : -,  
              
    ;  -,        
    .    ,         
      ,  ..           
    ,    .
               
  ,    - 255 .
                .
   ,        ,    
   .        (      )
     .



        2.2.  


                     
  -  ,     ,  
  ,        .  ,
      , ,    
               
  ,   ..               
   .
       ,   

 	       10 PRINT "  0010"

      ,    

 	       PRINT "  0010"

                  
     

 	         0010

         -  

                               CTP. 7 

                        207537 1.00100-01 35


       .



        2.3.   


                 ,  
      -   
   .   :

 	        XX   YYYYY

   XX -  , YYYYY -  ,  .
                    
  .
            1.



        2.4.    


             ,
       :
         - ,        
           , ;
         - ,           
               "< >" - ;
         - ,     "[  ]",  
              ;
         -  ,    ,   
             ;
         - ,                   
           [<>...]N,             ,
              ; N 
               ;  N 
           ,     .


       _________.      
  ,     ,  
    , :

 	       CIRCLE (100,100),50,,,,2














                               CTP. 8 

                        207537 1.00100-01 35


        2.5.   


                    
   :
         -      : A B C  D
           E F G H I J K L M N O P Q R S T U V W X Y Z;
         - : 0 1 2 3 4 5 6 7 8 9;
         -  ,    1.


                                                          1

                          

 -------------------------------------------------------------
       !	    
 -------------------------------------------------------------
 		
     :		
     =		
     +		
     -		
     *		
     /		 
     ^		     
     (		 
     )		 
     ,		
     ;		  
     .		
     "		
     '		
     $		  
     <		
     >		
     ?		 
     @		 ""
     \		  
     &		
     !		 
     %		
     #		 
     _		 
 ---------------------------------------------------------------

       -        ,
  ,      ..        
        ,            
  .
          - :
         -  ,: LIST, SAVE, LOAD, RUN;
         -    ,: LET, IF, THEN,
           GOTO, GOSUB, FOR, NEXT;
         -       ,:  SIN,
           COS, TAN, EXP, LOG, SQR.
             
  3.

                               CTP. 9 

                        207537 1.00100-01 35


               
        .  
         .


       _________.       
    ,    .




                   3.     






        3.1. 


          -            
  .



      3.1.1.  


         -           
  .
       1.              
     .
       :
 	       123
 	       -2345

       2.  ,        
      -        
  ,   .

       :
 	       2.45
 	       -102.36

       3.  ,     
  ,      ,      
   .

       :
 	       235.988-7=.0000235988
 	       23596=2359000000

                  
    D.

       4.        &H.   
     - 16.         10    15

                               CTP. 10 

                       207537 1.00100-01 35


     A  F.

       :
 	       &H76
 	       &HA2F

       5.    &O (  O).  
          -  8,        
    8  9.

       :
 	       &347
 	       &177700

       6.   -   ,   
    &B.      1  0.

       :
 	       &B01110110
 	       &B10101101



      3.1.2.   



                        
      ,         
    .
                      
          (16  ).     
         .    
     %   , :

 	       156%
 	       -3000%

                    ,        
   .
                
     .     
   7  ,       -  17    
   2  4   .        
       .
            :

         -            
            ;
         -       !.

       :
 	       -1.09E-09
 	       23.567!

            :

         -      ;

                               CTP. 11

                       207537 1.00100-01 35


         -      D;
         -     #.

       :

 	       3489
 	       3451415.92
 	       -1.09432D-09
 	       348.9#



      3.1.3.  


          :

       < >::="[<>...]255"

         -     (
  ),   .        
   255.
             .

       :
 	       ""
 	       " 0010"



        3.2. 





      3.2.1.  


         :

       <>::=< >
 		     < >

       < >::=< >

       < >::=
 < >(<>[,<>...])

       ,      ,  
    ;  ,    
  ,    .    
       255 .
                  -   ,
            ;
       .    
    .           
  ,   :

                               CTP. 12

                       207537 1.00100-01 35


 	       $   ;
 	       %   ;
 	       !     ;
 	       #    .

          ,  ,      
  .
                   
  [-32768,32767].

       :
 	       L#
 	       MINIMUM!
 	       K%
 	       ABC
 	       N$

               .  
                   .
       
    - .     
        ,        .
    -       ,      
  .       
    .        .
               5.   
  '    DIM.



        3.3.   



               
              ,  
    ,            
   .
         -  

         - ;
         - ;
         - ;
         - .















                               CTP. 13

                       207537 1.00100-01 35


      3.3.1.  


       < ::= [+]<>[[+]<>...]
        >	  [-]	    [-]

 			   [*]
       <>::=<>[[/]<>...]
 			   [^]

 		      <>
       <> ::= < >
 		      (< >)
 		      <>

                     
  ,  ,  ,  ,      .
             ,
  ,             ,
    ,     ,
       .      
      .    
             
     2.
                    .    
    ,         
  [-32768,32767].



      3.3.2.  


                   
  ,    2.

                                                          2

                     

 ------------------------------------------------------------
    !	      	       !  
 !				       !
 ------------------------------------------------------------
    ^	 !   (A   B) !   A^B
    *	 ! (A   B)	       !   A*B
    /	 ! (A   B)	       !   A/B
    \	 !  (A   B)!   A\B
   MOD	 !   (         !
 	 !		    A  B)     ! A MOD B
    +	 ! (A  B)		       !   A+B
    -	 ! (A  B) 	       !   A-B
    (	 ! 		       !
    )	 ! 		       !B/(A*(B+C))
 ------------------------------------------------------------
                    
        :


                               CTP. 14

                       207537 1.00100-01 35


       1.   ;
       2.   ;
       3.   ;
       4.  ;
       5.   ;
       6.   .

       :
 	       PRINT 10\4
 		2
 	       OK
 	       PRINT 10.4 MOD 4
 		2
 	       OK



      3.3.3.  



              
    .  ,  
       : "" -   
   ,   -1 ( 1),  "" -  
   ,   0.  ""   
    .
            3.

                                                          3

                          

   ---------------------------------------------
   !  !    !	        !
   !	     !	    !		      !
   !----------!---------------!----------------!
   !    =     !      !	     X=Y      !
   ! <>	 ><  !    !	X<>Y  X><Y !
   !    <     ! 	     !	     X<Y      !
   !    >     ! 	     !	     X>Y      !
   !    <=    !      !	     X<=Y     !
   !	     ! 	     !		      !
   !    >=    !      !	     X>=Y     !
   !	     ! 	     !		      !
   ---------------------------------------------

             
   . ,  

 	       X+Y=X*Y

        -1,  X+Y  X*Y.






                               CTP. 15

                       207537 1.00100-01 35


      3.3.4.  



                   
  ,     16-    .  
         
  .
        ,   :

       NOT
 	       X   NOT X
 	       0    1
 	       1    0

       AND
 	       X    Y	 X AND Y
 	       0    0	    0
 	       0    1	    0
 	       1    0	    0
 	       1    1	    1

       OR
 	       X    Y	 X OR Y
 	       0    0	    0
 	       0    1	    1
 	       1    0	    1
 	       1    1	    1

       XOR
 	       X    Y	 X XOR Y
 	       0    0	    0
 	       0    1	    1
 	       1    0	    1
 	       1    1	    0

       EQV
 	       X    Y	 X EQV Y
 	       0    0	    1
 	       0    1	    0
 	       1    0	    0

 	       1    1	    1

       IMP
 	       X    Y	 X IMP Y
 	       0    0	    1
 	       0    1	    1
 	       1    0	    0
 	       1    1	    1

                   
  "" ( )    ""  (),    
     '     
    .

       :
 	       IF A=200 AND F<4 THEN 80

                               CTP. 16

                       207537 1.00100-01 35


 	       IF I=10 OR K>=0 THEN 50
 	       IF NOT P THEN 100

                        
  ,     . 
       
  :

       1. NOT ;
       2. AND ;
       3. OR ;
       4. XOR  EQV ;
       5. IMP .

          :

        		  
       		 

 	       63			111111
 	  AND
 	       16			 10000
 	  =
 	       16			 10000


 	       -1	      1111111111111111
 	  AND
 		8			  1000
 	  =
 		8			  1000


 		4			   100
 	  OR
 		2			    10
 	  =
 		6			   110




      3.3.5. 


        -          .
  -   ""  ,    
  .          SQR(  )  -
     SIN( ) - .    
    .









                               CTP. 17

                       207537 1.00100-01 35


      3.3.6.  


          -    
  :

       1.            
           ,       
     .

       :
 	       10 A%=23.42
 	       20 PRINT A%
 	       RUN
 	       23
 	       

       2.         
         -  ,    
   ,   .

       :
 	       10 D=6/7!
 	       20 PRINT D
 	       RUN
 		.85714285714285714
 	       OK
       (              
  ).

       :
 	       10 D!=6/7!
 	       20 PRINT D!
 		.8571429
       (            
   D!   -   ).

       3.        
     .

       4.         
     .               
    .

       :
 	       10 C%=55.88
 	       20 C!=1.23456789
 	       30 PRINT C%
 	       40 PRINT C!
 	       RUN
 	       55
 		1.234568
 	       OK

                ,    
   [-32768,32767],   6.



                               CTP. 18

                       207537 1.00100-01 35


      3.3.7.    


                     
     (   -  ).    ,
      '  + (
  ).

       :
 	       10 A$=""
 	       20 B$=" "
 	       30 PRINT A$+B$
 	       40 PRINT " "+A$+B$
 	       RUN
 	        
 	         
 	       O

           

 	       =  <>   ><    <	 >    <=    >=

                ASCII,      
   .      ,    
  .   ASCII  ,    ,
       .     
  ,    -  ,          
  ( ).

        (   - ""):

 	       "AA"  <> "AB"
 	       "A"   =	"A"
 	       "X&"  >	"X "
 	       "CL " >	"CL"
 	       B$    <	"9.12.84." ,  B$="8.12.8"
 	       "AAC" <	"ABB"






















                               CTP. 19

                       207537 1.00100-01 35


                         4.  



                 .
                  
   .



        4.1.   





      4.1.1.  RUN


          .

       :
 	       RUN [<>]


        RUN      .
            '    ,
      ,        '   
    .      
   .   ,   ,  
        .    
     RUN    '        
      .

       :
 	       RUN
 	       RUN 100
       (       100).



      4.1.2.  CONT



                ,  
     .

       :
 	       CONT

             ,  
    STOP, END       "".
   CONT         ,  
     .      GOTO
      ""  .        
   ,         
  (,     ), 

                               CTP. 20

                       207537 1.00100-01 35


        CONT   
        CONT     STOP   ""
                 .   
               
  ,          
  (  ).

       :
 	       1050 STOP
 	       RUN
 	          1050
 	       OK
 	       ?A$
 	       
 	       OK
 	       CONT



      4.1.3.  () ""



        ""        ,
  . .,    (. " ").



      4.1.4.  MONIT



              -
  " 0010".

       :
 	       MONIT

                 
   -.



        4.2.      



          " 0010"  
        .         
        ()         ()
   .        
    .
             -
   ,        .  
          .
         BLOAD  BSAVE    
     -      [0,65535].  
                  ,

                               CTP. 21

                       207537 1.00100-01 35


     .



      4.2.1.  LOAD



                 (  
  ASCII).

       :
 	       LOAD < >[,R]

         R          
  .
                     ,
          SAVE.
    R         
    .      
    ASCII.

       :
 	       LOAD "MOD2",R
 	       MOD2  .ASC  003
 	       OK



      4.2.2.  SAVE



              
     (   ASCII).

       :
 	       SAVE < >


                  
       ASCII.
          SAVE -    
     .

       :
 	       FIND""
 	       .COD
 	       
 	       SAVE""
 	       








                               CTP. 22

                       207537 1.00100-01 35


      4.2.3.  MERGE



        '          
  ,     .

       :
 	       MERGE < >


                      
     '  ,   .
        ASCII.
                   
  ,   ,  '   
   .
           DELETE, RENUM  SAVE  
    ,   '    .
  MERGE   '        
  ,      .
                       
      .

       :
 	       LOAD ""
 	       .ASC  005
 	       OK
 	       MERGE ""
 	       .ASC  001
 	       OK



      4.2.4.  CLOAD



                  
  ,    .

       :
 	       CLOAD < >


                     ,
      .    
      CSAVE.

       :
 	       CLOAD ""
 	       .COD
 	       OK






                               CTP. 23

                       207537 1.00100-01 35


      4.2.5.  CSAVE



                  
    .

       :
 	       CSAVE < >


                
      .

       :
 	       CSAVE "1001"
 	       OK



      4.2.6.  FIND



               ,    
    .

       :
 	       FIND [< >]


        FIND       
      .     
  .        
        .
          LOAD,         
        .
           ,     A 
     .
                       .
        "".
              
        .

       :
 	       FIND""
 	       .COD
 	       
 	       SAVE""
 	       OK









                               CTP. 24

                       207537 1.00100-01 35


      4.2.7.  BLOAD


         ""    (      )  
  .

       :
 	       BLOAD <1>[,R][,<2>]

       <1>::=  ;

       R       
 	    ;

       <2>::=    .

          ,   
            BSAVE.      
        ,      
      .
             ,  ..  R,    
              
      .       ,   
       ,      
      .        R   
    2    .
             "".    
       .
                        
                  
     USR. ,    
          .

       :
 	       CLEAR 200,&HF40
 	       OK
 	       BLOAD "DATA",&HF40
 	       DATA  .BIN
 	       OK
 	       BLOAD "PROG",R
 	       PROG  .BIN
       ( PROG     ).



      4.2.8.  BSAVE


                   
   .

       :
 	       BSAVE <1>,<2>,<3>

       <1>::=  ;

       <2>::=    ;


                               CTP. 25

                       207537 1.00100-01 35


       <3>::=    .

               ,
    ,     2,      ,
    3,      
   ,     1.    
       5,    -
    2.        
  "".        
        .
              
                 .
               ,
         -  
    USR.

       :
 	       BSAVE "PROG",&O10000,&O20000
 	       OK



        4.3.    



                
   -         0    65535.  
       ".",  ""
  . ""  -   ,      
  ,        ,      
   .



      4.3.1.  LIST


                   
  .

       :
 	       [L]LIST [<1>][-[<2>]]

       <1>::=     		 
 		      ;

       <2>::=   ;

       L ,       
 	 .

        LIST       ,    
  LLIST -   .        
    ,      .
             ,           
  .     ,    
   .       (    )

                               CTP. 26

                       207537 1.00100-01 35


  ,       ( )    
   ,   .    ,
           .  
    ""     "." .
        ,           
      ,        
          .  ,      
            ,    
     .    
    ,        
   "".
                
   ""  "@".   -   .
   ,     "".

       :
 	       200 REM 
 	       150 REM 
 	       100 REM 
 	       LIST.
 	       100 REM 
 	       
 	       LIST -175
 	       100 REM 
 	       150 REM 
 	       



      4.3.2.  DELETE


           .

       :
 	       DELETE [<1>][-[<2>]]

       <1>::=     		 
 		      ;
 	
       <2>::=   .

               ,        ,
    1,  ,   2. 
   1 ,           
  . ,     2,      
          .       
   1 (  2)  ".",    ""
   .         LIST,      
        ,    
     8.

       :          
  ,      .

       :
 	       DELETE 100-200
 	       OK

                               CTP. 27

                       207537 1.00100-01 35


 	       DELETE .
 	       OK
 	       DELETE -5000
 	       OK
 	       DELETE 50-.
 	       OK
 	       DELETE 135
 	       OK



      4.3.3.  RENUM


           .

       :
 	     RENUM [<1>][,<2>][,<3>]

       <1>::=      
 		     ;

       <2>::=    ,      
 		      ;

       <3>::=   ,    
 		      [0,65535].

          1   3  10,    2
         .      1  
   2    -        
  "" .

                     
  . RENUM  ,   ,    
    ,  .   ,
             ,    
     8.

            ,    
    ,      2.      
        1,         
    ,   3.

       :
 	  RENUM 60,55
 	  RENUM ,,5












                               CTP. 28

                       207537 1.00100-01 35


      4.3.4.  AUTO



              
    .

       :
 	       AUTO [<1>][,<2>]

       <1>::=   ;

       <2>::= ,         
 		     [0,65535].

        AUTO      
        ,  ..,      
  "",        .
         ,      
  .   ,     ,
  ,    10.
       ,     , 
    "" .
         ,           
       ,     
   .              
    "".      ,  ,
    "",      .
            AUTO        
  ""  ""  ""  ,        
   .

       :
 	       110 END
 	       AUTO 100
 	       100 PRINT ""
 	       110 END (  "")
 	       120     (     ""   	""
 			)
 	       LIST
 	       100 PRINT ""
 	       110 END
 	       OK



      4.3.5.  . ()



            .

       :
 	       . [<>]

       <>::=   .

             .

                               CTP. 29

                       207537 1.00100-01 35


       .
               
          (.
  " ").
        ,   ,  ""  
   ,  .



      4.3.6.  () ""



          ""        
                (.
  " ").



      4.3.7.  NEW


            .

       :
 	       NEW

               
  ( CLEAR)     .






























                               CTP. 30

                       207537 1.00100-01 35


                            5. 



            ,  
       , 
        ..



        5.1.  


            :    ,
           ,   ,      
    .
                 -  
        [0,65535].      (".")
     .



      5.1.1.  LET



                      
  .

       :
 	       [LET]<>=<>

       <>::=<>
 		   < MID$>

         LET          ,
      ,  ,  
     .           
  .
         ,         ,   
     .      
          13.
       ,   LET     .

       :
 	       10 LET X=1
 	       20 Y=2*3
 	       30 A$=B$+" "
 	       40 LET D$=A$
 	       50 MID$(C$,1%,2%)=D$









                               CTP. 31

                       207537 1.00100-01 35


      5.1.2.  GOTO



             .

       :
 	      GOTO < >

         GOTO       
        (..,         
    ).
             GOTO      
      .          
  ,     8.

       :
 	       10 INPUT X
 	       20 IF X<>0 THEN GOTO 40
 	       30 END
 	       40 PRINT X
 	       50 GOTO 10



      5.1.3.  GOSUB



          .

       :
 	       GOSUB < >

        GOSUB    -  
  ,             
    RETURN.     
            .  RETURN
        ,         
    GOSUB.
              
    8.      GOSUB    
  3.



      5.1.4.  RETURN



              
   GOSUB .

       :
 	       RETURN

       RETURN    ,    
      ,    .  

                               CTP. 32

                       207537 1.00100-01 35


          FOR-NEXT    
  .           
  .

       :
 	       10 I=1
 	       20 GOSUB 100
 	       30 I=2
 	       40 GOSUB 100
 	       50 END
 	       100 REM 
 	       110 PRINT "SUB";I
 	       120 RETURN



      5.1.5.  IF



        IF              
  .

       :
 		THEN <> 	    <>
   IF <> 		     [ ELSE		   ]
 		THEN  < >	    < >
 		GOTO

       <>::=  ,  ;

       <>::=   ;

       < >::=   .

              
    .     "",   -
  "".
          "",    
           .  
       THEN     
  GOTO.
              "",    
   ELSE         ,
    ELSE .
         <>        ,
     IF.       
  ,               
  .

       :
 	       10 INPUT A,B,C
 	       20 IF A<B THEN PRINT A;" < ";B
 	       30 I%=NOT ( B<C AND A<C )
 	       40 IF I% GOTO 10 ELSE PRINT A;" ";B;"< ";C




                               CTP. 33

                       207537 1.00100-01 35


      5.1.6.  FOR



        FOR   NEXT   
    .

       :
 	       FOR <>=<1> TO <2>

       [STEP <3>]

       <>::=  ( 
 		   );

       <1>::=     (
 		     <>);

       <2>::= , 
 		      ;

       <3>::=    (
 		    <>,    1).

                    1
    .  ,   
  ,         NEXT.    
     ( ,   
   3 )    3  
     2.     (,
      3  )        2,   
       NEXT  ,      
    ,    
  FOR  NEXT.
         .      ,  .
  ., NEXT        ,    NEXT
   .
                 ,      
      NEXT.
         ,   FOR,  .



      5.1.7.  NEXT



          .

       :
 	       NEXT [<>[,<>...]]

       <>::=    ,   
 		      FOR.

         NEXT            ,
       ,      
  ,    .

                               CTP. 34

                       207537 1.00100-01 35


       NEXT           ,
   ,      FOR    .  NEXT    
  ,  ,    
      .       
         ,
    - .
             FOR   1.

       :
 	       10 FOR X=1 TO 10
 	       20 FOR Y=10 TO 1 STEP -2
 	       30 PRINT Y
 	       40 NEXT Y
 	       50 PRINT TAB(3);X
 	       60 NEXT



      5.1.8.  ON



                
  .

       :
 	       ON <> [GOTO ] <>
 			       GOSUB

       <>::=  ,   
 		      [0,32767].

       <>::=            ,
 		   ;

                 .  
             .   
            ,
         .    
        (   1,
  2  ..),          GOSUB
   GOTO.
          GOSUB< >,    
  RETURN   ,    
  ON.
              ,      
  ,      ,    
   .         
  ,   ON GOTO.      ,
  ,     ON       
    ,       ON  GOSUB,  
        .
             5.

       :
 	       10 A$=INKEY$
 	       20 IF A$="" THEN 10
 	       30 ON ASC(A$)-64% GOSUB 100,200,300

                               CTP. 35

                       207537 1.00100-01 35


 	       40 GOTO 10



      5.1.9.  STOP



          .

       :
 	       STOP

         STOP          
    .         STOP   
  ,    

 	          YYYYY
 	       OK

            .  
                   
  .    CONT          
    ,        STOP.  
          
      17.      
    RUN.

       :
 	       10 A=10
 	       20 STOP
 	       30 A=20
 	       40 PRINT A
 	       RUN
 	          20
 	       PRINT A
 	       10
 	       OK
 	       CONT
 	       20
 	       OK



     5.1.10.  END



            .

       :
 	       END

                 
     . END        
   .       
           
    GOSUB.

                               CTP. 36

                       207537 1.00100-01 35


       :

 	       10 GOSUB 30
 	       20 END
 	       30 PRINT A$
 	       40 RETURN



     5.1.11.  CALL



           .

       :
 	       CALL[<>]
 	       _

       <>::=      .

         CALL     "_".
      ,   
   .
       ,    CALL,  -  
   .         ,    
      .      CALL      
   -,   ,
    .

       :
 	       CALL GAME
 	       _RADIO(ON)



     5.1.12.  REM



           .

       :
 	       REM [<>]
 	       '

       <> -   .

                      
           ,
           .  
       REM  .      
      -   ("'").     
  REM,      , 
                    ,
    .
        ,       
    ,            

                               CTP. 37

                       207537 1.00100-01 35


  .

       :
 	       10 REM  
 	       200 X=1 '  



        5.2.   ,        
               



                  
        .   
            .
                    
     .    
                 DIM    ,
      - DATA.  
           
  READ  RESTORE.



      5.2.1.  DIM      
             ,    .



       :
 	       DIM <>[,<>...]

       <>::=   ,	  
 		           
 		         
 		    .

              ,
       .     
      .     
    ,      
  [0,255].
              .  
                    
   .    
      .         
                
    10.
               
      12.      
  '          
   10.           
  ,     7.

       :
 	       10 DIM X,I%,Z(5,20,3),A$(30)


                               CTP. 38

                       207537 1.00100-01 35


      5.2.2.  KEY



            .

       :
 	       KEY <1>,<2>

       <1>::=  ,    
 		      ,    -
 		      [1,10];

       <2>::=   ,   
 		        (  
 		      16 ).

             
  ,   .  16   
  2  ,   1.
                   
        .      KEY   
     .
          <>        
   CHR$.
                       
   ,   5.
                     
  :

 	       COLOR
 	       AUTO
 	       GOTO
 	       LIST
 	       RUN <>
 	       COLOR 1,0 <>
 	       CLOAD "
 	       CONT <>
 	       . <>
 	       <> RUN <>

       (    <>        14   
    ).

       :
 	       KEY 1,"LINE "
 	       KEY 2,"SAVE "+CHR$(34)
 	       KEY 3,"PRINT PI"+CHR$(10)











                               CTP. 39

                       207537 1.00100-01 35


      5.2.3.  CLEAR



         ,        
   .

       :
 	       CLEAR [<1>[,<2>]]

       <1>::=    ,     
 		         ,  
 		       ;

       <2>::=    ,     
 		         	 
 		     ,    -,
 		         70000.

                 ,
   ,  ,    ,
    ,      
  <>.   USR  .
                   
       ,      
  200 .       1,        
     .
                ,
             .
         ,
   USR   .    CLEAR  
       '    ,  
  -    .
          CLEAR ,  ,  RUN,
  NEW, MERGE, LOAD      . 
      CLEAR    ,       
      HIMEM  .
                
         ,    
     7.      
     2.    2    
  70000,     5.

       :
 	       CLEAR 1000,&O30000
 	       OK
       ( 1000       &O30000 
   ).











                               CTP. 40

                       207537 1.00100-01 35


      5.2.4.  DATA



                      
   .

       :
 	       DATA <>[,<>...]

       <>::=  ,  
 		     	     ,    
 		    .

             ""    
   .        
  DATA  .              
  ,    READ   .
               DATA 
      ,        
  .     ,    
      RESTORE.
                DATA         
  .           
  .     ,  
  &H, &O, &B,  ,     .
       ,    
  .



      5.2.5.  READ



           DATA  .

       :
 	       READ <>[,<>...]

       <> ::=    (
 		        ).

                
    DATA.          ,     
            .     READ
       DATA,   
     .       
    RESTORE.
            DATA  
    4.             
     13.

       :
 	       10 DATA 1,&O22,&H3F
 	       10 FOR I%=0% TO 5%
 	       20 DATA 234E-7
 	       30 READ X(I%)

                               CTP. 41

                       207537 1.00100-01 35


 	       40 NEXT I%
 	       50 DATA -33%,44.56,TEXT,"A,B"
 	       60 READ A$,B$



      5.2.6.  RESTORE



             DATA  
  READ.

       :
 	       RESTORE [< >]

       < >::=   .

             ,  ,
        DATA          
   READ. READ    ,  
      DATA      .    RESTORE
           
    .                
    DATA      
  .    RESTORE    
  .            DATA    
        .

       :
 	       1000 RESTORE
 	       1010 FOR I%=0% TO 10%
 	       1020 READ X(I%)
 	       1030 NEXT I%
 	       1040 RETURN

       (,   X)



      5.2.7.  DEF





    5.2.7.1.  DEF USR



           .

       :
 	       DEF USR[<>]=<>

       <>::=           [0,9],
 		           ,     
 		  0;

                               CTP. 42

                       207537 1.00100-01 35


       <>::=  ,    
 		       USR.

              ,
    .        
          .  
    -32768   -1        32768    65535
  .              
   .
           10  USR( ).  
           .       
      USRTAB(&O2100),   USR(  )
     .     
    USRTAB.
                    
    

 	       10 DEFUSR=&ONNNNNN
 	       20 A=USR(A)

              
    BLOAD,      
          BUFSTA(&O264).    ,
   

 	       BLOAD "PROG"
 	       PROG  .BIN
 	       OK
 	       DEF USR5=PEEK(&O264)
 	       OK

           USR( )    
  CLEAR.      DEF USR.



    5.2.7.2.  DEF FN



         . LIN :
 	       DEF FN <>[(<>)]=<>

       <>::=    ;

       <>::= 	          
 		   (  	),
 		  	;

       <> ::=     ,   
 		      <>.

               <>,
        .        
         .  <>
       ,          
        .        
          .

                               CTP. 43

                       207537 1.00100-01 35


            .  
       ,      
    .      
  , ..,         
  .      ,       
        ,    
    FN.       
   ,        .
               ,   '
   ,        
       .   
       ,        
      .    
     ,         
   FN.
                     .   
     ,   ,
      .
                
  ,    . DEF FN,    DATA,
        ,   ..,        
     .   -    ,
     .

       :
 	       10 DEF FN QU$(QU,ST)=MID$(QL$(QU),ST)
 	       20 PRINT FN QU$(CO,LN(CO))



        5.3.  /


         /  INPUT,  PRINT      
       .



      5.3.1.  PRINT



          ,       
   .

       :
 		PRINT
 		?     [#]
 			  [<>]
 		LPRINT

       <>::=       ,
 		       PRINT,	
 		      ;

       L ,       
 	;


                               CTP. 44

                       207537 1.00100-01 35


       #       .

        PRINT        "?",
     LPRINT.
                .  
     ,     
            
   .          
          ,    
                .
        ,  
    , ..,     
   14 .          .
       ,     .  
           ,  
       .    
          ,  
          ,           
   ,        
  .
        LPRINT      .

       :
 	       PRINT 1;-2,3
 		1  -2	       3
 	       OK



      5.3.2.  INPUT



             .

       :
 	       INPUT [<>;] [<>]
 			 #

       <>::=     ;

       <>::= 	         
 		   ,  ;

       #        .

                
   OPEN    .   "#" ,  
        .            
     <>,            
  .                   "?",
   ,        .  
         ,        
      .         
   .      
  ,      .      
     ,       
    "??",    -      .   

                               CTP. 45

                       207537 1.00100-01 35


    ,      ,    
   .
                  
  ,           13    
   .     INPUT  #    
        55.

       :
 	       INPUT "";A,B$,C$
 	       ?123,"ABC,EFG"
 	       ??P"Q
 	       OK
 	       PRINT A,B$,C$
 		123	       ABC,EFG
 	       P"Q
 	       OK



      5.3.3.  OPEN



            .

       :
 	       OPEN < > [FOR  INPUT]
 					      OUTPUT

       < >::=  , -
 			        ;

              /   .   
  /    .    INPUT    OUTPUT
  ,         
  .        ASCII, 
   256 .     "/Z"  (  &O32).
      SAVE, LOAD  MERGE    
       .        
       .
                  INPUT#,
      -  PRINT#.    
    ,   6 .        
  .      ,    3    
      :

 	       DATA.TXT

           OPEN    DAT.
       ,      
        ASCII.
                
     56.       
   54.

       :
 	       10 OPEN "PROG.ASC" FOR INPUT
 	       20 IF EOF THEN 60

                               CTP. 46

                       207537 1.00100-01 35


 	       30 INPUT# A$
 	       40 PRINT A$
 	       50 GOTO 20
 	       60 CLOSE

       (     PROG).



      5.3.4.  CLOSE



         /   .

       :
 	       CLOSE

         OPEN    ,    
     <>         "/Z"
  ( &O32),        .  
       .
            CLOSE  .    END,
  CLEAR, LOAD, NEW     .

       :
 	       10 OPEN "DATA" FOR OUTPUT
 	       20 FOR I%=0% TO 10%
 	       30 PRINT# X(I%)
 	       40 NEXT
 	       50 CLOSE



        5.4.     





      5.4.1.  POKE



             .

       :
 	       POKE <>,<>

       <>::=    ,       
 		 ;

       <>::=  ,   -
 		      .

                  
   () ,       
  .   ,   ,     

                               CTP. 47

                       207537 1.00100-01 35


   , ..,         1.  
             
  BASIC  ,        ,     
   ,      .
           POKE    ,      
                   
  .

       :
 	      10 A%=PEEK(4%)
 	      20 POKE 6%,2%
 	      30 POKE 4%,6%

 	      ...
 	      100 POKE 4%,A%
 	      110 POKE 6%,0%

       (       
  "").



      5.4.2.  OUT



             .

       :
 	       OUT <>,<>,<>

       <>::=  ,  
 		    ;

       <>::=  ,   -
 		    ;

       <>::=   , ,  
 	              ;
 	       	    ,
 	        -  .

                 
          .     ,
        ,      ,
     (       ),  
   (  ).

       :
 	       10 POKE A%,&O177777
 	       20 POKE B%,0%
 	       30 OUT A%,&O111111,0%
 	       40 OUT B%,&O66666,1%
 	       50 PRINT OCT$(PEEK(A%)),OCT$(PEEK(B%))
 	       RUN
 	       66666	       66666
 	       OK


                               CTP. 48

                       207537 1.00100-01 35


        5.5.    





      5.5.1.  CLS



        .

       :
 	       CLS

        CLS            .
   ,          
    .

       :
 	       100 INPUT "",A$
 	       110 IF PAROL$=A$ THEN 200
 	       120 CLS
 	       130 PRINT AT(10,10);"-!"
 	       140 CLEAR



      5.5.2.  COLOR



         .

       :
 	       COLOR [<1>] [,<2>]

       <1>::=   ,      
 		       ,   
 		     [0,4];

       <2>::=   ,      
 		      ,    [0,4].

               
  .               
  .
          :

 		0 - ( );
 		1 -;
 		2 -;
 		3 -;
 		4 -.

        0     .
         COLOR          ,   
                    ,

                               CTP. 49

                       207537 1.00100-01 35


    .
                    
  ,   ,   ,   
    .    -    
      ""    
  6,   .
              
  24.           
   5.

       :
 	       100 COLOR 2,3
 	       110 DRAW A$
 	       120 COLOR 1
 	       130 PSET @(20,0)
 	       140 DRAW A$



      5.5.3.  LOCATE



          ,    .

       :
 	       LOCATE [<1>][,<2>][,<3>]

       <1>::=  X (),     
 		 ,       -
 		   [0,255];

       <2>::=  Y (), 	   
 		 ,    -
 		   [0,255];

       <3>::=    ,  ,    
 		(   )        
 		( )  ;

         LOCATE          
  .        0  ()    23  ().
        0    31        .  
    ,        LOCATE.  
       ,   
   .
          3      0,    
   ,         
  .     INPUT.  
             
  INKEY$.
            LOCATE  .
        CSRLIN  POS        ,
    .          
         ,    
   255,          
     .
         ,    255      

                               CTP. 50

                       207537 1.00100-01 35


      5.

       :
 	       100 LOCATE 0,22
 	       110 INPUT "";X
 	       120 LOCATE 0,0,0
 	       130 PRINT X



        5.6.    





      5.6.1.  PSET


                   
  .

       :
 	       PSET [ @  ](<1>,<2>)[,<3>]
 		     STEP

       <1>::=    ,      
 		X ;

       <2>::=    ,      
 		Y ;

       <3>::=   ,       ;
 		   [0,4];

       STEP (@) -    
 		   ,	-
 		   .

                        
  ( X   [0,255],  Y  -  [0,240]),    
        .            
    ,     3,  ,    
  ,   ,   COLOR.
             ,   
     5.

       :
 	       10 FOR Y=1 TO 120
 	       20 PSET(SQR(Y),Y)
 	       30 NEXT








                               CTP. 51

                       207537 1.00100-01 35


      5.6.2.  PRESET


               
  .

       :
 	       PRESET [ @  ](<1>,<2>)[,<3>]
 		       STEP

       <1>::=     ,      X
 		;

       <2>::=     ,      Y
 		;

       <3>::=    ,        ;
 		   [0,4];

       STEP (@) -      
 		   ,	
 		  

                .
     3,      PSET -
       .      X    Y
      [0,255]  [0,240]  ,
      .
             ,   
     5.

       :
 	       100 C%=POINT(X%,Y%)
 	       110 PRESET(X%,Y%)
 	       ...
 	       200 IF POINT(X%,Y%)<>C% THEN PSET(X%,Y%),C%



      5.6.3.  POINT


             .

       :
 	       X=POINT(<1>,<2>)

       <1>::=        ,        
 		      X;

       <2>::=        ,        
 		       Y;

        POINT        -    
    ,   1   4.      
     ,    -1.   
               ',  
     .

                               CTP. 52

                       207537 1.00100-01 35


          POINT  ,    
   -    .

       :
 	       100 GOSUB 1000
 	       110 IF POINT(X0,Y0)=4% THEN 100
 	       120 GOSUB 2000



      5.6.4.  LINE



                  
  .

       :
 	       LINE [[ @  ](<1>,<2>)] -
 		      STEP

       [ @  ](<3>,<4>)[,<5>,[B ]
        STEP			     BF

       <1>::=   ,        X
 		  ';

       <2>::=   ,        Y
 		  ';

       <3>::=   ,        X
 		  ';

       <4>::=   ,        Y
 		  ';

       <5>::=   ,         
 		',    [0,4];

       B  -  		
 	   ;

       BF -   ;

       STEP (@) ,  	    
 	         	,	
 	        .

              ,
      .
              
  (<1>  <2>)   (<3>  <4>)  ' (
      ).  
    ,       ,
      .
           5   ,         ,
    COLOR.
          B (BF),     

                               CTP. 53

                       207537 1.00100-01 35


  ( ).         
  ,   .
               
   [-32768,32767],       
   X  Y   [0,255]  [0,240] .
              ,    
     5.

       :
 	       10 LINE -@(SCALE*3,SCALE*4),2%
 	       20 LINE (100,100)-(200,200),,B
 	       30 LINE (125,125)-@(50,50),,BF



      5.6.5.  CIRCLE


            , 
       .

       :
 	       CIRCLE [ @  ](<1>,<2>),<3>
 		       STEP

       [,<4>][,<5>][,<6>][,<7>]

       <1>::=   ,       X
 		 ;

       <2>::=   ,       Y
 		 ;

       <3>::=      ,         
 		;

       <4>::=   ,       ;
 		   [0,4];

       <5>::=  ,   -
 		    ( );

       <6>::=  ,   -
 		    ( );

       <7>::=  ,  -
 		 "" ;

       STEP (@) -     -
 		   ,  
 		  .

                ,
      ().          
  ,              
  ( X   [0,255], Y - [0,240]).
                
   .

                               CTP. 54

                       207537 1.00100-01 35


        3    .
         5      6            
        .           
  ,          ,      
              .   
     0  2*PI (6.283185).
          7,   .   
     1.
                        
      .     
     ,      5.

       :
 	       10  COLOR 3
 	       20  CIRCLE(100,100),75,,-1,-.001,1.2
 	       30  CIRCLE(10,-5),75,,-.001,-1,1.2



      5.6.6.  PAINT


              

       :
 	       PAINT [ @  ](<1>,<2>)[,<3>][,4]
 		      STEP

       <1>::=    ,      
 		  ;

       <2>::=    ,      
 		Y  ;

       <3>::=   ,      ;
 		   [0,4];

       <4>::=   ,      
 		 ;    
 		[0,4];

       STEP (@) -    
 		   ,  -
 		   .

                 
   .   3 ,     
   ,   COLOR.      4
  ,       .
       ,    ,      
    .
            ,  
     .        
    .
        ,      
      ,      4,        
  , ,      
           ,         

                               CTP. 55

                       207537 1.00100-01 35


  .
                   ,   
      5.

       :
 	       100 DRAW A$
 	       110 PAINT(105,22),3



      5.6.7.  DRAW



          .

       :
 	       DRAW < >

       < >::= ,    -
 				 .

               .  
          "   ",   
   DRAW   .     
  ,              (255
  ).
         DRAW     ,  
  ,     .     
      [0,32767]    
  ( ):

 		=<  >;

             [-32768,32767].
                    ,
       X    Y      
  [0,255]  [0,240] .      
          ";",  
      .
           DRAW:

       U[<>]      ;
       D[<>]  ;
       L[<>]  ;
       R[<>]  ;
       E[<>]     ;
       F[<>]     ;
       G[<>]     ;
       H[<>]     .

          (  45 ):

 	       H U E
 		\!/
 	       L-+-R
 		/!\
 	       G D F

                               CTP. 56

                       207537 1.00100-01 35


                    
   M.

       M[+]<1>,[+]<2>
 	-	  -

                    
  (<1>,<2>).       "+" 
  "-",       
  .           .  
   M ";"        
    .
          ,          
   ,   :

       B ,            
 	 ,   ;

       N -        
 	     .

              
          DRAW,      M  
   .

       A[<>]           ,
 		     :
 		     0 -    (-
 			   );
 		     1 -  90    ;
 		     2 - 180    ;
 		     3 - 270    ;

       S[<>]      ;
 		              
 		   [1,255].        
 		    4.   0   -
 		             ,
 		   ..  4.     
 		    DRAW     4   
 		        .  
 		    S1   4-  -
 		   , S12 - 3- .

            C:

       C[<>]     ,   -
 		     
 		  [0,4].

            X:

       X<  >;

               ,   
   .

        DRAW     ,  

                               CTP. 57

                       207537 1.00100-01 35


                   
      X,        ,
      .          
       5.

       :
 	       10 A%=100
 	       20 B%=150
 	       30 A$="E10F10D20L20U20R20"
 	       40 DRAW"BM=A%;,100X=A$;BM=B%;,100S2X=A$;"



        5.7.   





      5.7.1.  BEEP



           .

       :
 	       BEEP

                
  .        .

       :
 	       100 FOR I=1 TO 10
 	       110 BEEP
 	       120 NEXT
 	       130 INPUT " ";MN
 	       140 IF MN>12 OR MN<1 THEN 100
 	       150 PRINT MONTH$(MN)



        5.8.   

















                               CTP. 58

                       207537 1.00100-01 35


      5.8.1.  TRON



          .

       :
 	       TRON

                     
        [NNN].   
         -        
      TROFF.    RUN      
   TRON.
                      
   , ,     
  .



      5.8.2.  TROFF



                  TRON   
  .

       :
 	       TROFF

       :
 	       ...
 	       249 TRON
 	       250 ...
 	       ...
 	       300 ...
 	       301 TROFF
 	       ...
 	       RUN
 	       [250][260][270][280][290][300]
 	       OK


















                               CTP. 59

                       207537 1.00100-01 35


                             6. 




                     .
      ,        
  ,    ,        .
                   ,
       ,   ,
       .



        6.1.  



           -   .



      6.1.1.  SQR


         -  .

       :
 	       X=SQR(<>)

       <>::=   ,  
 		     .

          .      
               
   5.

       :
 	       PRINT SQR(3)
 		1.7320508075688773
 	       OK



      6.1.2.  SIN



          ,   .

       :
 	       X=SIN(< >)

           ,   .  
  ,         ,    
   X=X*PI/180.

       :

                               CTP. 60

                       207537 1.00100-01 35


 	       PRINT SIN(PI/2)
 		1
 	       OK



      6.1.3.  COS


          ,   .

       :
 	       X=COS(< >)

       :
 	       PRINT COS(0)
 		1
 	       OK



      6.1.4.  TAN



          ,   .

        :
 	       X=TAN(< >)

       :
 	       100 PRINT "=";S;"=";A
 	       110 PRINT "=";S*TAN(A)



      6.1.5.  ATN


           ( ).

       :
 	       X=ATN(< >)

                .   
         PI/2  -PI/2.

       :
 	       PRINT ATN(1)*4
 		3.1415926535897932
 	       OK








                               CTP. 61

                       207537 1.00100-01 35


      6.1.6.  PI



         -  "".

       :
 	       X=PI

             "".

       :
 	       PRINT PI
 		3.1415926535897932
 	       OK
 	       PRINT SIN(PI/2)
 		1
 	       OK



      6.1.7.  EXP


         - E   .

       :
 	       X=EXP(<>)

       <>::=    ,  
 		           
 		   [-88.499999999999992,88.029685974121093].

             . 
        .      
        LOG(  ),        
   (  E),  X=EXP(LOG(X)).

       :
 	       PRINT EXP(LOG(3))
 		2.9999999999999911
 	       OK



      6.1.8.  LOG



         -  .

       :
 	       X=LOG(<>)

       <>::=   ,  
 		     .

             .

                               CTP. 62

                       207537 1.00100-01 35


     ,    
   ,   5.
       LOG( )         
  . ,        10
    : LG(X)=LOG(X)/LOG(10).

       :
 	       PRINT LOG(EXP(1))
 		.99999999999999793
 	       OK



      6.1.9.  ABS


         -   .

       :
 	       X=ABS(< >)

                       
   .

       :
 	       X=-1/3
 	       OK
 	       PRINT ABS(X*2) + 2
 		2.6666666666666667
 	       OK



     6.1.10.  FIX


         -   .

       :
 	       X=FIX(< >)

                    .    
    FIX( )  INT( )  ,
          
   (. INT( ) ).

       :
 	       PRINT FIX(-5.3)
 		-5
 	       OK
 	       PRINT FIX(6.25)
 		6
 	       OK
 	       IF X/N=FIX(X/N) THEN PRINT "X   N"
 	       OK




                               CTP. 63

                       207537 1.00100-01 35


     6.1.11.  INT


         -  ,   .

       :
 	       X=INT(< >)

            ,    
  .  INT( )   FIX( ), ,    INT(
  ), FIX( )       .  
          .  
     X=ABS(INT(Z))  X=ABS(INT(-Z))  
   Z   .

       :
 	      IF ABS(INT(Z))=ABS(INT(-Z))THEN PRINT"Z-"
 	      OK
 	      PRINT INT(-5.3),FIX(-5.3)
 	       -6	       -5
 	      OK



     6.1.12.  SGN



          -1, 0  1,     
  .

       :
 	       X=SGN(< >)

        SGN( )    .      
   :

         -  <0,  -1;

         -  =0,  0;

         -  >0,  +1.

         , ,     
   IF     0    ,  
      0.

       :
 	       100 INPUT A
 	       110 PRINT B*SGN(A)









                               CTP. 64

                       207537 1.00100-01 35


     6.1.13.  RND



         RND -     [0,1].

       :
 	       X=RND(< >)

               ,
       [0,1].    
      .
             :
         -    ,    RND(
           )   -              
            .     
             ;
         -    ,      
                    .
                
             ,           
            ;
         -           ,   
              ,      
           .

       :
 	       PRINT RND(1),RND(-5),RND(-50)
 		.47099434036014261
 		.53368281796108777
 		.53368281796108777
 	       OK
 	       PRINT RND(3),RND(0)
 		.60542409693567598
 		.60542409693567598
 	       OK



     6.1.14.  FRE


       ,       
   .

       :
 	       X=FRE[(<>)]

       <>::=    
 		    (  ,   ).

         -   ,     
   ' ,        .
      ,       '
  ,          (.   
  CLEAR).  ,       
  ,    .   ,   
        ,  ,    

                               CTP. 65

                       207537 1.00100-01 35


        (,   ),   
    .

       :
 	       PRINT FRE(" "),FRE(0)
 		200		11000



        6.2.   





      6.2.1.  CINT


             
  .

       :
 	       X=CINT(<>)

       <>::=   ,  
 		       [-32768,32767].

             
  ,     FIX( ).       
    16-      [-32768,32767],    
   .       ,  
            
   .

       :
 	       PRINT CINT(5.93), CINT(-6.352)
 		5		-6
 	       OK



      6.2.2.  CSNG


                 ,
   .

       :
 	       X=CSNG(< >)

                       
                
  .        ,    
      .  
  ,        ,
  ,  .

       :

                               CTP. 66

                       207537 1.00100-01 35


 	       PRINT CSNG(PI)
 		3.141593
 	       OK



      6.2.3.  CDBL


               
    .

       :
 	       X=CDBL(< >)

                      
          ,  .  .,  
    17-  .       
  ,             
  .

       :
 	       PRINT CDBL(2/3)
 		.66666666666666667
 	       OK



        6.3.     





      6.3.1.  PEEK



            .

       :
 	       X=PEEK(<>)

       <>::=  ,   .

               
        .          
       -.    
  PEEK         
  .
            -   
  ,    .   
  -32768  -1    32768  65535 .

       :
 	       PRINT PEEK(&O176),PEEK(&O200)
 		100		120
 	       OK

                               CTP. 67

                       207537 1.00100-01 35


       (    ).



      6.3.2.  INP



              .

       :
 	       X=INP(<>,<>)

       <>::=  ,    
 		   ;

       <>::=   ,  ,   
 		     .

             INP         PEEK
        ,  
            .     
    ,   ,   
   ,    ,       
   0.

       :
 	       POKE A%,&B10101
 	       OK
 	       PRINT BIN$(INP(A%,&B11001))
 	       10001
 	       OK

              .

       :
 	       10 POKE &177660,&O100
 	       20 IF INP(&O177660,&O200) THEN 30 ELSE 20
 	       30 A%=PEEK(&0177662)
 	       40 PRINT A%
 	       50 GOTO 20

       (    ).



        6.4.  












                               CTP. 68

                       207537 1.00100-01 35


      6.4.1.  ASC


               ASCII.

       :
 	       X=ASC(<>)

       <>::=    .

                    .
        ,   
        ASCII,    
   3.         
  [0,255].    ASC( )   CHR$( ).  
             
     MID$.
         -  ,       
   5.

       :
 	       ZZ$="ABC"
 	       OK
 	       PRINT ASC(ZZ$)
 		65
 	       OK
 	       PRINT ASC(MID$(ZZ$,2))
 		66
 	       OK



      6.4.2.  CHR$



              (  ASCII)    
     .

       :
 	       X$=CHR$(<>)

       <>::=  ,    
 		      [0,255].

                
   ASCII         
  ,   .   CHR$(65)   "A"
  .  CHR$( )     ASC( ).
   X    ,    X$  
    ,   :

 	       X=ASC(CHR$(X))  X$=CHR$(ASC(X$)).

                    
  ,    5.
                 
   , :

                               CTP. 69

                       207537 1.00100-01 35


 	       10 OTVET$=" "
 	       20 FOR I=1 TO 3
 	       30 PRINT " ";I;" "
 	       40 INPUT NOMER
 	       50 OTVET$=OTVET$+CHR$(NOMER)
 	       60 NEXT
 	       70 PRINT "="; OTVET$

                  
  MID$. ,   ,       
       CHR$, :

 	       10 PRINT CHR$(7);

       (  ).



      6.4.3.  LEN



         -   .

       :
 	       X=LEN(< >)

        LEN( )         
       0 (   )    255  (
     ).    
      .      
   ""         ,  
    LEN   , :

 	       IF LEN(A$)>0 THEN T$=MID$(A$,1,1)

       :
 	       100 IF LEN(S$)>32-POS THEN PRINT CHR$(10);
 	       110 PRINT S$



      6.4.4.  MID$



             .

       :
 	       X$=MID$(<1>,<2>[,<3>])
       
 	       MID$(<4>,<2>[,<3>])=
       =< >

       <1>::=  ;

       <2>::=  ,    
 		1  255    ,  

                               CTP. 70

                       207537 1.00100-01 35


 		    -
 		   ;

       <3>::=   ,    -
 		        -
 		 ,   ;

       <4>::=  .

        MID$      .
      ,          
    .
          MID$      
        <1>,      ,
    ,    ,
     .
                     
   ,   .   
         ,    
      ,   ,
   .
       ,    MID$   
   ,    .
         ,   MID$( )    
      ,         ,
     ,    .    
        
  ,       . 
        2    3        
              
  ,     .

       :
 	       100 A$=" "
 	       110 A1$=STRING$(20," ")
 	       120 MID$(A1$,1)=MID$(A$,6)
 	       130 MID$(A1$,7)=MID$(A$,1,4)
 	       140 PRINT A1$
 	       RUN
 	        
 	       OK



      6.4.5.  STRING$



          .

       :
 	       X$=STRING$(<1>,<2>)
 				      <3>

       <1>::=  ,  
 		      0    255      
 		       ;


                               CTP. 71

                       207537 1.00100-01 35


       <2>::=  ,  
 		      0    255,    
 		     ASCII,        
 		      ;

       <3>::=  ,  
 		        
 		     .

           STRING$(   )      
     ,   .
             ASCII
   (.  3),          
    ,        .  
        STRING$   ,      
     ,          
  . ,  STRING$(41,32)  STRING$(41,"  ")
     .
             5,          
         [0,255].    
       0,        
  ,    .

       :
 	       PRINT NAZV$; STRING$(50-LEN(NAZV$),"."); NOM



      6.4.6.  VAL



         -        
  ,  .

       :
 	       X=VAL(< >)

                 ,   
        ,    
  ASCII .     ,      
    .    VAL(  )       
  .       
          .      
         ,        .
  ,  VAL("A12:")  0,  VAL("23A12:") - 
  23.
        VAL     STR$( ).

       :
 	       PRINT VAL(MID$("A12:",2))
 		12
 	       OK






                               CTP. 72

                       207537 1.00100-01 35


      6.4.7.  INKEY$



         ,   .

       :
 	       X$=INKEY$

              . 
          ,    INKEY$    
    ("").    ,   
       INKEY$.     
   ,      .
               
  .      ,      
     ,      .
         .
           ,    
    ,     ,      
      ,       
    , ,  ,      INPUT.
  INKEY$      -  .
         .

       :
 	       10 CH$=INKEY$
 	       20 IF CH$="" THEN 10
 	       30 PRINT ASC(CH$);
 	       40 GOTO 10
       (   ).



      6.4.8.  STR$



             ASCII .

       :
 	       X$=STR$(< >)

                  
   PRINT.        ,  
   ""        ,
       STR$. (  STR$(  )  
   STRING$( )).  ,    N=1/3,    STR$(N)  
   ".33333333333333333"    "3"     
  ,   "3" (  63).
                  VAL.  ,
   VAL(STR$(N))  N,    STR$(VAL(NM$))    
  NM$,  NM$   .
                  
    ,       .    
  PRINT   ,            
  .


                               CTP. 73

                       207537 1.00100-01 35


       :
 	       A=123
 	       OK
 	       PRINT MID$(STR$(A),LEN(STR$(A))-1)
 	       23
 	       OK



      6.4.9.  BIN$



             .

       :
 	       X$=BIN$(< >)

               
   ,       .  ,
     3   "11", . .,   
   "1" (  61).      
  ,             .
         BIN$(  )    16
  .   BIN$( )    
   .

       :
 	       PRINT BIN$(44)
 	       101100
 	       OK



     6.4.10.  OCT$



                 
  .

       :
 	       X$=OCT$(< >)

                 ,  
              
    E        
  BIN$.   ,   .  
  ,  12   "14", . .,     
    "1"    "4"   (      ASCII   61      64
  ).   ,   
  OCT$, -  .
               
  .

       :
 	       PRINT OCT$(&HFFFF)
 	       177777

                               CTP. 74

                       207537 1.00100-01 35


 	       OK



     6.4.11.  HEX$



                       
   .

       :
 	       X$=HEX$(< >)

        HEX$            
            ,      
            ,          
    .           ,
    .  ,     43  
   "2B",    ,          
     ASCII  62    102.      ,  
      HEX$( ) - 4 .
                 
   .

       :
 	       PRINT HEX$(&H1A)
 	       1A
 	       OK



        6.5.   /





      6.5.1.  CSRLIN



           -      ,      
   .

       :
 	       X=CSRLIN [(< >)]

          -      ,  ,  
        .      
    0,    -  23.        
      ,    ,      
    .
       CSRLIN     POS      
    ,        .  
  LOCATE    .

       :

                               CTP. 75

                       207537 1.00100-01 35


 	       ? CSRLIN
 		10
 	       OK
       (     ).



      6.5.2.  POS



                 (
  ).

       :
 	       X=POS[(< >)]

                ,      
   .       CSRLIN    
    .        
      ,     
  .

       :
 	       1000 X=POS
 	       1010 Y=CSRLIN
 	       1020 LOCATE X1,Y1
 	       1030 GOSUB 2000
 	       1040 STOP
 	       2000 LOCATE X,Y
 	       2100 RETURN



      6.5.3.  LPOS



           .

       :
 	       X=LPOS[(< >)]

        LPOS          
   .         1.  
         ,    
     ,   1.  
        ,      -  
     ,        
   .
        LPOS( )           
   .

       :
 	       250 IF LPOS>20 THEN LPRINT
 	       260 LPRINT TAB(20);A



                               CTP. 76

                       207537 1.00100-01 35


      6.5.4.  EOF



          .

       :
 	       X=EOF

        ,            
     INPUT#               "/Z"
  (  32).  ,    -1 (TRUE), 
    - 0 (FALSE).         EOF
    ,     .
                   55,  
       INPUT#      
      EOF.     ,
           IF.      
  ,      59.      
  ,    EOF    52.

       :
 	       50 IF NOT EOF THEN 20
 	       60 CLOSE



        6.6.   PRINT





      6.6.1.  AT



             PRINT
     .

       :
 	       PRINT AT(<1>,<2>)

       <1>::=   ,    
 		        ,   
 		             ;
 		        [0,255];

       <2>::=  ,     
 		       ;
 		        [0,255].

           AT(  )       
  LOCATE.      ,  ,    (  ),  
              
  PRINT.            ,  
    - .       ,
         .    

                               CTP. 77

                       207537 1.00100-01 35


    0  31    ,  -  0    23  
    .         31,  
         .  
      .
              ,  
      5.

       :
 	 PRINT AT(15,14);"A"
 	 OK
 	 PRINT AT(15,38);"C"
 	 OK



      6.6.2.  TAB



                      
   PRINT.

       :
 	       PRINT TAB(<>)

       <>::=  ,   -
 		    ,     
 		    ;    [0,255].

        TAB( )        LPRINT.  
      ,         
  ,    .        
     ,     ,    TAB(  )
  .
            0    31      
  .     31,     
      , .., TAB(1)    TAB(33),
  TAB(65)  ..
               ,  
    5.

       :
 	       100 CW=8:
 	       110 PRINT A;TAB(CW);B;TAB(2*CW);C;TAB(3*CW);D















                               CTP. 78

                       207537 1.00100-01 35


      6.6.3.  SPC



         PRINT  .

       :
 	       PRINT SPC(<>)

        <>::=  ,   -
 		           -
 		      [0,255].

             PRINT    LPRINT  
     .     
  .
       SPC( )            
      "",      
   .

       :
 	       220 ZZ=8
 	       230 PRINT SPC(ZZ);AX;SPC(ZZ);BX;SPC(ZZ)



        6.7. ,  





      6.7.1.  FN



           .

       :
 	       X=FN <> [(<>)]

       <>::=  ,   DEF FN;

       <>::=    , 
 		  .

         FN  -      -,   
  .               
   DEF FN   .       
       ,   
           
  DEF FN.       
    ,            
   .
                 
  ,     DEF FN   .

       :

                               CTP. 79

                       207537 1.00100-01 35


 	       10 DEF FN LG(X)=LOG(X)/LOG(10)
 	       20 PRINT FNLG(100)



      6.7.2.  USR



            .

       :
 	       X=USR[<>](<>)

       <>::=     [0,9], -
 		    ;   -
 		  0;

       <>::= ,   
 		     USR.

                   
    DEFUSR.         10
    USR    0  9.
               JSR
  PC.              
    ,           
  .       
           
   .       
   R5  ,      R3  -    .  
    :   15-    
   ;         
     :

 	       -1 -  ,
 		0 -    
 		     ,
 		1 -    
 		     .

                  
    ,         ,  
   -   .
                ,        -
   .    R5      SP+2.
               
   RTS PC,        
  ,   R5.       
   ,     .
         USR      
  -,       
   .
          USR    5.

       :
 	       10 PRINT USR(0%)
 	       20 A%=USR2(A%)

                               CTP. 80

                       207537 1.00100-01 35


                                                     1



                          





               :
                       XX   YYYYY,

  XX- , YYYYY- , 
  .
           ,     
  .



      1	  NEXT  FOR
 	  NEXT   FOR  ,-
 	      FOR  	  ,
 	    NEXT.


      2	   
 	    , , 
 	  		      
 	  ,     
 	   	,    
 	    ..


      3	  RETURN  GOSUB
 	    RETURN  ,     
 	   GOSUB.


      4	     DATA
 	       READ  , 
 	    DATA .


      5	    


      6	  
 	       	   
 	  	    ,  	  
 	      . (       
 	          		
 	  ).


      7	   
 	              ,   
 	  	  	 FOR 

                               CTP. 81

                       207537 1.00100-01 35


 	  .


      8	    
 	    GOTO, GOSUB, IF, RESTORE,	RENUM,	AUTO  
 	  DELETE    .


      9	    ( )
 	          , 
 	      	  , 
 	     .


     10	    
 	      	 	    DIM,
 	         	DIM   
 	  ,   	   	    
 	     10.


     11	    
 	   	   	    ,
 	  	      .


     12	  	   
 	  .


     13	   
 	       
 	       ;  ,  
 	    ,     -
 	    .


     14	      
 	      ,  
 	        
 	    CLEAR.


     15	    
 	  	            
 	   255 .


     16	  










                               CTP. 82

                       207537 1.00100-01 35


     17	     
 	  	      	 
 	  , :
 	  1.  -  ;
 	  2. ;
 	  3. .


     18	    
 	      USR    -
 	     DEF.


     19	    /
 	      /.


     20	  


     21	  


     22	  


     23	  


     24	   
 	     	       ,
 	        ()	   
 	  .


     25	    
 	  	           
 	    255 .


     26-51 


     52	    
 	           	    ,
 	      ;	       
 	             -
 	   .


     53	  


     54	    
 	      OPEN      ,  
 	  	;   	    KILL  
 	    ,  	.


                               CTP. 83

                       207537 1.00100-01 35


     55	      
 	    INPUT#       , 
 	         ,  
 	    	.    ,
 	       -
 	   EOF.


     56	    
 	    LOAD, SAVE  	OPEN  
 	      (	  	
 	     ).


     57	      
 	     ASCII .  -
 	  .


     58	  


     59	    
 	   /    , 
 	    .


     60	  


     61	  


     62	    
 	  	       .
 	  (    ).


     63-255 




















                               CTP. 84

                       207537 1.00100-01 35


                                                     2



                  ,   






          ,     
   (  24.07.1986),   .



                    



    AUTO           
 	     .

    DELETE         .

    NEW	          
 	     CLEAR.

    LIST          .

    LLIST         
 	     .

    RENUM        .

    .	       .

    <BC>         
 	     .



                     



    BLOAD          
 	      .

    BSAVE              
 	      .

    CLOAD         
 	         -.

    CSAVE          
 	      .


                               CTP. 85

                       207537 1.00100-01 35


    LOAD         
 	     (  ASCII ).

    SAVE         
 	     (  ASCII ).

    MERGE       (   ASCII) 
 	         '   
 	       .

    FIND            
 	     .



                    



    CLEAR       ,    ..
 	         ,
 	          .

    KEY	       .

    TRON        .

    TROFF       .



                  



    CONT         
 	      STOP   "".

    RUN	       .

    MONIT          .

    <>        
 	     .
  LIN3
                      



    CLEAR         
 	      ,   
 	     ,      
 	     ,  .

    DIM	     ,   
 	     .

    DEF FN      .

                               CTP. 86

                       207537 1.00100-01 35


    DEF USR      
 	      -.



               ,  



    FOR	      .   
 	     .

    LET	         
 	     .  LET  .



                            



    ABS( )     .

    ATN( )    .   .

    CDBL( )       
 	      .

    CINT( )      
 	      .

    COS( )     ,  .

    CSNG( )       
 	      .

    EXP( )       .

    FIX( )       .

    FRE( )          -
    FRE	     '    (
 	       )  
 	      ,  
 	      ( ).

    INT( )        ,
 	      .

    LOG( )     .

    PI	      "".

    RND( )     .

    SGN( )     .

    SIN( )     ,  .

                               CTP. 87

                       207537 1.00100-01 35


    SQR( )     .

    TAN( )     ,  .



                           



    ASC( )         ASCII.

    BIN$( )       ,
 	        .

    CHR$( )       ASCII  .

    HEX$( )       ,
 	      16-  .

    LEN( )       .

    MID$( )      .

    MID$( )=     
 	       .

    OCT$( )       ,
 	        .

    SPC( )    ,    PRINT. 
 	       .

    STRING$()    
 	     .

    STR$( )       ,
 	      .

    TAB( )    ,   PRINT. 
 	        .

    VAL( )       ,
 	      ,  .



             ,  



    CALL         .
    _

    END	       .

    FOR	       .


                               CTP. 88

                       207537 1.00100-01 35


    GOSUB      .

    GOTO          .

    IF	         
 	          IF.

    NEXT       ,  FOR.

    RETURN        
 	        GOSUB .

    ON	      ,  
 	         
 	        .

    STOP         
 	       .



                   



    DATA         .

    READ          DATA  .

    RESTORE       
 	     DATA.



                         



    REM	       .
    '	           
 	       .



                 



    INP( )       .

    OUT	        .

    PEEK( )      .

    POKE         .

    USR( )      -
 	       .

                               CTP. 89

                       207537 1.00100-01 35


                        



    CLS	      .

    COLOR          
 	     .

    LOCATE     , 
 	      .

    PRINT        .
    ?



                       



    AT( )     ,    PRINT.
 	         .

    CSRLIN( )  ,    .
    CSRLIN     .


    POS( )     ,    .
    POS	      .

    SPC( )    ,    PRINT. 
 	       .

    TAB( )    ,    PRINT. 
 	        .



                           



    CIRCLE     , , .

    DRAW         .

    LINE         .

    PAINT         .

    POINT( )       .

    PRESET        
 	     .

    PSET( )       
 	     .

                               CTP. 90

                       207537 1.00100-01 35


                           



    BEEP        .



                          



    CLOSE        ()
 	        .

    EOF	          
 	      .

    INPUT#          .

    OPEN          
 	         ().

    PRINT#          .



                         



    INKEY$     -   
 	      .

    INPUT       .



                      



    LPRINT           
 	     .



                              



    AND,OR,NOT,EQV,IMP,XOR
 	      
    ^, *, /, +, -, MOD, \
 	       

    -, +        


                               CTP. 91

                       207537 1.00100-01 35


    +	        ()

    =, <>, ><, <, >, <=, =<, =>, >=
 	       























































                               CTP. 92

                       207537 1.00100-01 35


                                                     3



                ASCII "  0010"



 ==========================================================
   0   1   2   3   4   5   6   7   8   9   A  B	C  D  E  F
 ==========================================================
 0       0   @      '	          -	        
       
 ----------------------------------------------------------
 1	  !   1   A   Q 	     -  --         
 				  **
 ----------------------------------------------------------
 2	  "   2   B   R 	         #	        
 				  *
 ----------------------------------------------------------
 3   !   #   3   C   S 	         -  !	        
 ----------------------------------------------------------
 4     !   $   4   D   T 	      =	        
 ----------------------------------------------------------
 5    --   %   5   E   U 	      -  -	        
 ----------------------------------------------------------
 6    --   &   6   F   V 	       -  !!         
 ----------------------------------------------------------
 7  --   /   7   G   W 	      =  !	        
 ----------------------------------------------------------
 8 -- --   (   8   H   X 		  =	        
 ----------------------------------------------------------
 9    --   )   9   I   Y 	  -    -	        
 				 **
 ----------------------------------------------------------
 A !   *   :   J   Z 	       -  =	        
 				    
 				     *
 ----------------------------------------------------------
 B     !   +   ;   K   [ 	     32/  -  -	        
 				     64
 ----------------------------------------------------------
 C	  ,   <   L   \ 	    - =	        
 ----------------------------------------------------------
 D	  -   =   M   ] 	      ! =	        
  
  **
 ----------------------------------------------------------
 E	  .   >   N   - 	       - --	        
  **				     
 				      *
 ----------------------------------------------------------
 F  /   ?   O   -	           !!	      
  **
 ==========================================================




                               CTP. 93

                       207537 1.00100-01 35


       _________.  *  -           
     - ,   .  **
  -     .
























































                               CTP. 94

                       207537 1.00100-01 35


                                                     4



                - 





                          
  -,               
  .   ,      
  .


 	ABS			  BEEP
 	AND			  BLOAD
 	ASC			  BSAVE
 	AT
 	ATN
 	AUTO


 	CDBL			  COLOR
 	CHR$			  CONT
 	CINT			  COS
 	CIRCLE			  CSAVE
 	CLEAR			  CSNG
 	CLOAD			  CSRLIN
 	CLS


 	DELETE			  ELSE
 	DIM			  END
 	DRAW			  EOF
 				  EXP


 	FIND			  GOSUB
 	FIX			  GOTO
 	FOR
 	FRE


 	HEX$			  IF
 				  IMP
 				  INKEY$
 				  INPUT
 				  INT


 	KEY			  LEN
 				  LIST
 				  LLIST
 				  LOAD
 				  LOCATE
 				  LOG

                               CTP. 95

                       207537 1.00100-01 35


 				  LPOS


 	MID$			  NEW
 	MOD			  NEXT
 	MONIT			  NOT


 	ON			  PAINT
 	OR			  PEEK
 	OUT			  PI
 				  POINT
 				  POKE
 				  POS
 				  PRESET
 				  PRINT
 				  PSET


 	REM			  SAVE
 	RENUM			  SGN
 	RETURN			  SIN
 	RND			  SQR
 	RUN			  STEP
 				  STOP
 				  STR$

 	TAB			  VAL
 	TAN
 	THEN
 	TO
 	TROFF
 	TRON


 	XOR


       _________.      -
      .


























